object ContactFrm: TContactFrm
  Left = 152
  Top = 115
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'Contact Information'
  ClientHeight = 376
  ClientWidth = 566
  Color = clSilver
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel6: TBevel
    Left = 11
    Top = 75
    Width = 533
    Height = 13
    Shape = bsTopLine
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 34
    Width = 566
    Height = 342
    HelpContext = 98
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      HelpContext = 95
      Caption = '&General'
      object Label1: TLabel
        Left = 41
        Top = 36
        Width = 47
        Height = 13
        Caption = '&Company:'
        FocusControl = Company
      end
      object Label2: TLabel
        Left = 298
        Top = 15
        Width = 23
        Height = 13
        Caption = '&Title:'
        FocusControl = Title
      end
      object Label3: TLabel
        Left = 284
        Top = 38
        Width = 37
        Height = 13
        Caption = '&Display:'
        FocusControl = Display
      end
      object Bevel1: TBevel
        Left = 6
        Top = 55
        Width = 545
        Height = 10
        Shape = bsBottomLine
      end
      object Label4: TLabel
        Left = 287
        Top = 81
        Width = 34
        Height = 13
        Caption = 'Phone:'
      end
      object Bevel2: TBevel
        Left = 7
        Top = 170
        Width = 545
        Height = 10
        Shape = bsBottomLine
      end
      object Label5: TLabel
        Left = 276
        Top = 191
        Width = 54
        Height = 13
        Caption = '&Web Page:'
        FocusControl = WebSite
      end
      object Bevel3: TBevel
        Left = 8
        Top = 209
        Width = 545
        Height = 10
        Shape = bsTopLine
      end
      object Label17: TLabel
        Left = 39
        Top = 14
        Width = 50
        Height = 13
        Caption = 'Full Name:'
      end
      object Label18: TLabel
        Left = 48
        Top = 76
        Width = 41
        Height = 13
        Caption = 'Address:'
      end
      object Name: TEdit
        Left = 94
        Top = 8
        Width = 174
        Height = 21
        Hint = 'The Person'#39's Name Of This Contact'
        TabOrder = 0
        OnChange = NameChange
      end
      object Company: TEdit
        Left = 94
        Top = 31
        Width = 174
        Height = 21
        Hint = 'Enter Company Name'
        TabOrder = 1
        OnChange = CompanyChange
      end
      object Title: TEdit
        Left = 325
        Top = 8
        Width = 225
        Height = 21
        Hint = 'Title Used By This Contact'
        TabOrder = 2
        OnChange = TitleChange
      end
      object Display: TComboBox
        Left = 325
        Top = 32
        Width = 225
        Height = 21
        Hint = 'How This Contact Will Be Displayed'
        ItemHeight = 13
        TabOrder = 3
        OnChange = DisplayChange
      end
      object Address: TMemo
        Left = 95
        Top = 74
        Width = 174
        Height = 72
        Hint = 'Address'
        TabOrder = 5
        OnChange = AddressChange
      end
      object AddressType: TComboBox
        Left = 7
        Top = 97
        Width = 83
        Height = 21
        Hint = 'Address Selection'
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'Business'
          'Home'
          'Other')
        TabOrder = 4
        OnChange = AddressTypeChange
      end
      object PhoneType1: TComboBox
        Left = 325
        Top = 74
        Width = 97
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'Cellular'
          'Fax'
          'Home'
          'Home Fax'
          'ISDN'
          'Modem'
          'Msg'
          'Pager'
          'Video'
          'Work')
        TabOrder = 7
        OnChange = PhoneType1Change
      end
      object Phone1: TEdit
        Left = 426
        Top = 74
        Width = 124
        Height = 21
        TabOrder = 8
        OnChange = Phone1Change
      end
      object PhoneType2: TComboBox
        Left = 325
        Top = 98
        Width = 97
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'Cellular'
          'Fax'
          'Home'
          'ISDN'
          'Modem'
          'Msg'
          'Pager'
          'Video'
          'Work')
        Sorted = True
        TabOrder = 9
        OnChange = PhoneType2Change
      end
      object Phone2: TEdit
        Left = 426
        Top = 98
        Width = 124
        Height = 21
        TabOrder = 10
        OnChange = Phone2Change
      end
      object PhoneType3: TComboBox
        Left = 325
        Top = 122
        Width = 97
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'Cellular'
          'Fax'
          'Home'
          'ISDN'
          'Modem'
          'Msg'
          'Pager'
          'Video'
          'Work')
        Sorted = True
        TabOrder = 11
        OnChange = PhoneType3Change
      end
      object Phone3: TEdit
        Left = 426
        Top = 122
        Width = 124
        Height = 21
        TabOrder = 12
        OnChange = Phone3Change
      end
      object PhoneType4: TComboBox
        Left = 325
        Top = 146
        Width = 97
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'Cellular'
          'Fax'
          'Home'
          'ISDN'
          'Modem'
          'Msg'
          'Pager'
          'Video'
          'Work')
        Sorted = True
        TabOrder = 13
        OnChange = PhoneType4Change
      end
      object Phone4: TEdit
        Left = 426
        Top = 146
        Width = 124
        Height = 21
        TabOrder = 14
        OnChange = Phone4Change
      end
      object MailingAddress: TCheckBox
        Left = 96
        Top = 153
        Width = 95
        Height = 17
        Hint = 'Check If This Is The Mailing Address'
        Caption = '&Mailing Address'
        TabOrder = 6
        OnClick = MailingAddressClick
      end
      object EmailType: TComboBox
        Left = 8
        Top = 184
        Width = 66
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'E-Mail'
          'E-Mail 2')
        TabOrder = 15
        OnChange = EmailTypeChange
      end
      object EMail: TEdit
        Left = 78
        Top = 184
        Width = 190
        Height = 21
        TabOrder = 16
        OnChange = EMailChange
      end
      object WebSite: TEdit
        Left = 333
        Top = 184
        Width = 219
        Height = 21
        TabOrder = 17
        Text = 'http://'
        OnChange = WebSiteChange
      end
      object Notes: TMemo
        Left = 8
        Top = 215
        Width = 546
        Height = 68
        MaxLength = 500
        ScrollBars = ssVertical
        TabOrder = 18
        OnChange = NotesChange
      end
      object EditCatBut: TBitBtn
        Left = 8
        Top = 287
        Width = 51
        Height = 25
        Caption = '&Cats....'
        TabOrder = 19
        OnClick = EditCatButClick
      end
      object Categories: TEdit
        Left = 65
        Top = 289
        Width = 489
        Height = 21
        ReadOnly = True
        TabOrder = 20
        OnChange = CategoriesChange
      end
    end
    object TabSheet2: TTabSheet
      HelpContext = 96
      Caption = '&Details'
      object Label6: TLabel
        Left = 10
        Top = 18
        Width = 58
        Height = 13
        Caption = '&Department:'
      end
      object Label7: TLabel
        Left = 308
        Top = 17
        Width = 31
        Height = 13
        Alignment = taRightJustify
        Caption = '&Office:'
      end
      object Label8: TLabel
        Left = 16
        Top = 46
        Width = 52
        Height = 13
        Alignment = taRightJustify
        Caption = '&Profession:'
      end
      object Bevel4: TBevel
        Left = 11
        Top = 75
        Width = 533
        Height = 13
        Shape = bsTopLine
      end
      object Label16: TLabel
        Left = 13
        Top = 92
        Width = 70
        Height = 13
        Caption = 'Business Card:'
      end
      object Department: TEdit
        Left = 73
        Top = 13
        Width = 192
        Height = 21
        MaxLength = 35
        TabOrder = 0
        OnChange = DepartmentChange
      end
      object Office: TEdit
        Left = 344
        Top = 12
        Width = 192
        Height = 21
        MaxLength = 35
        TabOrder = 1
        OnChange = OfficeChange
      end
      object Profession: TEdit
        Left = 73
        Top = 41
        Width = 192
        Height = 21
        MaxLength = 35
        TabOrder = 2
        OnChange = ProfessionChange
      end
      object ScrollBox1: TScrollBox
        Left = 103
        Top = 112
        Width = 340
        Height = 168
        TabOrder = 3
        object Image1: TJPEGImage
          Left = 0
          Top = 0
          Width = 336
          Height = 164
          Align = alClient
          Stretch = True
          NumOfColors = _256
          DCTMethod = Integ
          Dither = FS
          FastProcessing = False
          GrayScale = False
          NoSmooth = False
          OnePass = False
        end
      end
      object AcquireLogoBut: TBitBtn
        Left = 469
        Top = 110
        Width = 75
        Height = 25
        Hint = 'Acquire From Scaner'
        Caption = '&Acquire'
        Enabled = False
        TabOrder = 4
        OnClick = AcquireLogoButClick
        Glyph.Data = {
          72010000424D7201000000000000760000002800000016000000150000000100
          040000000000FC00000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
          EEEEEEEEEE00EEEEEEEEEEEE0EEEEEEEEE00EEEEEEEEEE00000EEEEEEE00EEEE
          EEEEE02202200EEEEE00EEEEEEE002220222200EEE00EEEEEE02222202222220
          0E00EEEE00222200000222222000EEE022222000F00002222000E002222000FF
          FFF000022000022222000FFFFFFFF00000000222000FFFFFFFFFFFF000000220
          000FFFFFFFFFFF000E00000A00A00000FFFF000EEE000AAAAA00AAAA000000EE
          EE00E00AAAAA00AAAA00EEEEEE00EEE00AAAAA00AAAA00EEEE00EEEEE00AAAAA
          0000AA00EE00EEEEEEE00A00EEEE00000E00EEEEEEEEE0EEEEEEEEEEEE00EEEE
          EEEEEEEEEEEEEEEEEE00EEEEEEEEEEEEEEEEEEEEEE00}
      end
      object LoadLogoBut: TBitBtn
        Left = 469
        Top = 135
        Width = 75
        Height = 25
        Hint = 'Load Logo Or Card From File'
        Caption = '&Load'
        TabOrder = 5
        OnClick = LoadLogoButClick
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F000000000000000000000001000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333000030000000000000333333000030788888888880333333000030F7
          7777777780333333000030F99777777780333333000030FFFFFFFFFF70333333
          0000300000000000003333330000333333333333333333330000333003333333
          3333333300003330033333333333333300003330033333300000000300003330
          03303330FFFFFF030000333008300330F4444F030000333800000030FFFFFF03
          0000333380000030F4444F030000333333300330FFFFFF030000333333303330
          F44F00030000333333333330FFFF003300003333333333300000033300003333
          33333333333333330000}
      end
      object BitBtn3: TBitBtn
        Left = 469
        Top = 160
        Width = 75
        Height = 25
        Caption = '&Save'
        TabOrder = 6
        OnClick = BitBtn3Click
        Glyph.Data = {
          06020000424D0602000000000000760000002800000028000000140000000100
          0400000000009001000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333000000000000033333337777777777
          777333333307888888888803333333778888888888733333330F777777777803
          33333378FFFFFFFFF8733333330F9977777778033333337899FFFFFFF8733333
          330FFFFFFFFFF703333333788888888887733333330000000000000333333377
          7777777777733333333333333333333333333333333333333333333333333333
          3300333333333333333333773333333333333333300003333333333333333777
          7333300000000333000000333777777773337777773330FFFFFF033333003333
          3788888873333377333330F4444F033333003333378FFFF873333377333330FF
          FFFF0333380033333788888873333877333330F4444F030000083333378FFFF8
          73777778333330FFFFFF0300008333333788888873777783333330F44F000333
          33333333378FF87773333333333330FFFF003333333333333788887733333333
          3333300000033333333333333777777333333333333333333333333333333333
          33333333333333333333}
        NumGlyphs = 2
      end
      object DeleteLogoBut: TBitBtn
        Left = 469
        Top = 185
        Width = 75
        Height = 25
        Hint = 'Delete Logo Or Card'
        Caption = '&Delete'
        TabOrder = 7
        OnClick = DeleteLogoButClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000
          FFFFFFF8888888887FFFFFF0F8888880FFFFFFF8F7F7F7F87FFFFFF0F0707080
          FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
          FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
          FFFFFF78F8F8F8F87F7FF0F0F0708080F0FFF878F8F8F8F878FFFF00F0707080
          0FFFFF88F8F8F8F88FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF080808080
          FFFFFFF8F8F8F8F877FFFF00000000000FFFFF888888888887FFFF0F77788888
          0FFFFF8FFFFFFFFF87FFFF00000000000FFFFF88888888888FFFFFFFF08880FF
          FFFFFFFFF8FFF87FFFFFFFFFF00000FFFFFFFFFFF88888FFFFFF}
        NumGlyphs = 2
      end
    end
    object TabSheet3: TTabSheet
      HelpContext = 97
      Caption = '&Encryption'
      object Label9: TLabel
        Left = 29
        Top = 18
        Width = 39
        Height = 13
        Alignment = taRightJustify
        Caption = '&User ID:'
      end
      object Label10: TLabel
        Left = 33
        Top = 42
        Width = 35
        Height = 13
        Alignment = taRightJustify
        Caption = '&Key ID:'
      end
      object Bevel5: TBevel
        Left = 11
        Top = 75
        Width = 533
        Height = 13
        Shape = bsTopLine
      end
      object UserId: TEdit
        Left = 73
        Top = 13
        Width = 389
        Height = 21
        ReadOnly = True
        TabOrder = 0
        OnChange = UserIdChange
      end
      object KeyID: TEdit
        Left = 73
        Top = 37
        Width = 389
        Height = 21
        ReadOnly = True
        TabOrder = 1
        OnChange = KeyIDChange
      end
      object GetKeyBut: TBitBtn
        Left = 474
        Top = 11
        Width = 75
        Height = 25
        Hint = 'Extract Key From Key Ring'
        Caption = '&Get Key'
        Enabled = False
        TabOrder = 2
        OnClick = GetKeyButClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          F000FFFFFFFFFFFFF888FFFFFFFFFFFFF0B0FFFFFFFFFFFFF8F8FFFFFFFFFFF0
          00B0FFFFFFFFFFF88808FFFFFFFFFFF0B3B0FFFFFFFFFFF8F008FFFFFFFFF000
          3B0FFFFFFFFFF888008FFFFFFFFF00B3B0FFFFFFFFFF880008FFFFFFFFFF0B3B
          0FFFFFFFFFFF8F008FFFF8000F0003B0FFFFF88880888008FFFF80BBB00B3B0F
          FFFF88000880008FFFFF0BBBBBB3B0FFFFFF8F00000008FFFFFF0BBBBBBB0FFF
          FFFF8F00FF008FFFFFFF0BB003BB08FFFFFF8F088F0085FFFFFF88B003BBB0FF
          FFFF8008800008FFFFFFF0BB33BBB0FFFFFFF800000008FFFFFFFF08BBBB08FF
          FFFFFF80FFFF88FFFFFFFFF800008FFFFFFFFFF888888FFFFFFF}
        NumGlyphs = 2
      end
      object KeyData: TMemo
        Left = 26
        Top = 86
        Width = 503
        Height = 193
        Hint = 'Key Data'
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 3
        WordWrap = False
      end
      object AddKeyBut: TBitBtn
        Left = 454
        Top = 285
        Width = 75
        Height = 25
        Hint = 'Add Key To Key Ring'
        Caption = '&Add Key'
        Enabled = False
        TabOrder = 4
        OnClick = AddKeyButClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          F000FFFFFFFFFFFFF888FFFFFFFFFFFFF0C0FFFFFFFFFFFFF8F8FFFFFFFFFFF0
          00C0FFFFFFFFFFF88808FFFFFFFFFFF0C3C0FFFFFFFFFFF8F008FFFFFFFFF000
          3C0FFFFFFFFFF888008FFFFFFFFF00C3C0FFFFFFFFFF880008FFFFFFFFFF0C3C
          0FFFFFFFFFFF8F008FFFF8000F0003C0FFFFF88880888008FFFF80CCC00C3C0F
          FFFF88000880008FFFFF0CCCCCC3C0FFFFFF8F00000008FFFFFF0CCCCCCC0FFF
          FFFF8F00FF008FFFFFFF0CC003CC08FFFFFF8F088F0085FFFFFF88C003CCC0FF
          FFFF8008800008FFFFFFF0CC33CCC0FFFFFFF800000008FFFFFFFF08CCCC08FF
          FFFFFF80FFFF88FFFFFFFFF800008FFFFFFFFFF888888FFFFFFF}
        NumGlyphs = 2
      end
      object RemoveKeyBut: TBitBtn
        Left = 474
        Top = 36
        Width = 75
        Height = 25
        Hint = 'Remove Key From Address Book'
        Caption = 'Remove'
        Enabled = False
        TabOrder = 5
        OnClick = RemoveKeyButClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000
          FFFFFFF8888888887FFFFFF0F8888880FFFFFFF8F7F7F7F87FFFFFF0F0707080
          FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
          FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
          FFFFFF78F8F8F8F87F7FF0F0F0708080F0FFF878F8F8F8F878FFFF00F0707080
          0FFFFF88F8F8F8F88FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF080808080
          FFFFFFF8F8F8F8F877FFFF00000000000FFFFF888888888887FFFF0F77788888
          0FFFFF8FFFFFFFFF87FFFF00000000000FFFFF88888888888FFFFFFFF08880FF
          FFFFFFFFF8FFF87FFFFFFFFFF00000FFFFFFFFFFF88888FFFFFF}
        NumGlyphs = 2
      end
    end
    object TabSheet4: TTabSheet
      Caption = '&Mail Options'
      object Bevel7: TBevel
        Left = 9
        Top = 137
        Width = 533
        Height = 13
        Shape = bsTopLine
      end
      object GroupBox1: TGroupBox
        Left = 73
        Top = 11
        Width = 230
        Height = 116
        Caption = 'Account Options'
        TabOrder = 0
        object Label11: TLabel
          Left = 17
          Top = 26
          Width = 52
          Height = 13
          Caption = 'Account:'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label12: TLabel
          Left = 10
          Top = 57
          Width = 59
          Height = 13
          Caption = '&Signature:'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label13: TLabel
          Left = 26
          Top = 88
          Width = 43
          Height = 13
          Alignment = taRightJustify
          Caption = '&V-Card:'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Accounts: TComboBox
          Left = 73
          Top = 21
          Width = 145
          Height = 21
          Style = csDropDownList
          ItemHeight = 0
          TabOrder = 0
          OnChange = AccountsChange
        end
        object SignatureBox: TComboBox
          Left = 73
          Top = 51
          Width = 145
          Height = 21
          Style = csDropDownList
          ItemHeight = 0
          Sorted = True
          TabOrder = 1
          OnChange = SignatureBoxChange
        end
        object vCardList: TComboBox
          Left = 73
          Top = 82
          Width = 145
          Height = 21
          Style = csDropDownList
          ItemHeight = 0
          Sorted = True
          TabOrder = 2
          OnChange = vCardListChange
        end
      end
      object GroupBox2: TGroupBox
        Left = 309
        Top = 11
        Width = 156
        Height = 72
        Caption = 'Send Options'
        TabOrder = 1
        object Label14: TLabel
          Left = 11
          Top = 21
          Width = 48
          Height = 13
          Caption = 'Encoding:'
        end
        object Label15: TLabel
          Left = 25
          Top = 46
          Width = 34
          Height = 13
          Caption = 'Priority:'
        end
        object EncodeBox: TComboBox
          Left = 64
          Top = 16
          Width = 81
          Height = 21
          HelpContext = 66
          Style = csDropDownList
          Color = clWhite
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ItemHeight = 13
          Items.Strings = (
            'Mime'
            'UU')
          ParentFont = False
          TabOrder = 0
          OnChange = EncodeBoxChange
        end
        object Priority: TComboBox
          Left = 64
          Top = 39
          Width = 81
          Height = 21
          HelpContext = 65
          Style = csDropDownList
          Color = clWhite
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ItemHeight = 13
          Items.Strings = (
            'Low'
            'Normal'
            'Urgent')
          ParentFont = False
          TabOrder = 1
          OnChange = PriorityChange
        end
      end
      object GroupBox3: TGroupBox
        Left = 309
        Top = 85
        Width = 157
        Height = 42
        Caption = 'Message Options'
        TabOrder = 2
        object PlainTextCk: TCheckBox
          Left = 6
          Top = 17
          Width = 77
          Height = 17
          Hint = 'No Formating When Saved'
          HelpContext = 69
          Caption = '&PlainText'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          OnClick = PlainTextCkClick
        end
        object Receipt: TCheckBox
          Left = 85
          Top = 17
          Width = 68
          Height = 17
          HelpContext = 67
          Caption = '&Receipt'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          OnClick = ReceiptClick
        end
      end
    end
    object TabSheet5: TTabSheet
      HelpContext = 99
      Caption = '&Picture'
      object ScrollBox2: TScrollBox
        Left = 13
        Top = 17
        Width = 436
        Height = 277
        TabOrder = 0
        object Image2: TJPEGImage
          Left = 0
          Top = 0
          Width = 432
          Height = 273
          Align = alClient
          Stretch = True
          NumOfColors = _256
          DCTMethod = Integ
          Dither = FS
          FastProcessing = False
          GrayScale = False
          NoSmooth = False
          OnePass = False
        end
      end
      object AcquirePicBut: TBitBtn
        Left = 469
        Top = 15
        Width = 75
        Height = 25
        Hint = 'Acquire From Scaner'
        Caption = '&Acquire'
        Enabled = False
        TabOrder = 1
        OnClick = AcquirePicButClick
        Glyph.Data = {
          72010000424D7201000000000000760000002800000016000000150000000100
          040000000000FC00000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
          EEEEEEEEEE00EEEEEEEEEEEE0EEEEEEEEE00EEEEEEEEEE00000EEEEEEE00EEEE
          EEEEE02202200EEEEE00EEEEEEE002220222200EEE00EEEEEE02222202222220
          0E00EEEE00222200000222222000EEE022222000F00002222000E002222000FF
          FFF000022000022222000FFFFFFFF00000000222000FFFFFFFFFFFF000000220
          000FFFFFFFFFFF000E00000A00A00000FFFF000EEE000AAAAA00AAAA000000EE
          EE00E00AAAAA00AAAA00EEEEEE00EEE00AAAAA00AAAA00EEEE00EEEEE00AAAAA
          0000AA00EE00EEEEEEE00A00EEEE00000E00EEEEEEEEE0EEEEEEEEEEEE00EEEE
          EEEEEEEEEEEEEEEEEE00EEEEEEEEEEEEEEEEEEEEEE00}
      end
      object LoadPicBut: TBitBtn
        Left = 469
        Top = 40
        Width = 75
        Height = 25
        Hint = 'Load Picture From File'
        Caption = '&Load'
        TabOrder = 2
        OnClick = LoadPicButClick
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F000000000000000000000001000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333000030000000000000333333000030788888888880333333000030F7
          7777777780333333000030F99777777780333333000030FFFFFFFFFF70333333
          0000300000000000003333330000333333333333333333330000333003333333
          3333333300003330033333333333333300003330033333300000000300003330
          03303330FFFFFF030000333008300330F4444F030000333800000030FFFFFF03
          0000333380000030F4444F030000333333300330FFFFFF030000333333303330
          F44F00030000333333333330FFFF003300003333333333300000033300003333
          33333333333333330000}
      end
      object BitBtn6: TBitBtn
        Left = 469
        Top = 65
        Width = 75
        Height = 25
        Caption = '&Save'
        TabOrder = 3
        OnClick = BitBtn6Click
        Glyph.Data = {
          06020000424D0602000000000000760000002800000028000000140000000100
          0400000000009001000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333000000000000033333337777777777
          777333333307888888888803333333778888888888733333330F777777777803
          33333378FFFFFFFFF8733333330F9977777778033333337899FFFFFFF8733333
          330FFFFFFFFFF703333333788888888887733333330000000000000333333377
          7777777777733333333333333333333333333333333333333333333333333333
          3300333333333333333333773333333333333333300003333333333333333777
          7333300000000333000000333777777773337777773330FFFFFF033333003333
          3788888873333377333330F4444F033333003333378FFFF873333377333330FF
          FFFF0333380033333788888873333877333330F4444F030000083333378FFFF8
          73777778333330FFFFFF0300008333333788888873777783333330F44F000333
          33333333378FF87773333333333330FFFF003333333333333788887733333333
          3333300000033333333333333777777333333333333333333333333333333333
          33333333333333333333}
        NumGlyphs = 2
      end
      object DeletePicBut: TBitBtn
        Left = 469
        Top = 90
        Width = 75
        Height = 25
        Hint = 'Delete Picture'
        Caption = '&Delete'
        TabOrder = 4
        OnClick = DeletePicButClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000
          FFFFFFF8888888887FFFFFF0F8888880FFFFFFF8F7F7F7F87FFFFFF0F0707080
          FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
          FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
          FFFFFF78F8F8F8F87F7FF0F0F0708080F0FFF878F8F8F8F878FFFF00F0707080
          0FFFFF88F8F8F8F88FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF080808080
          FFFFFFF8F8F8F8F877FFFF00000000000FFFFF888888888887FFFF0F77788888
          0FFFFF8FFFFFFFFF87FFFF00000000000FFFFF88888888888FFFFFFFF08880FF
          FFFFFFFFF8FFF87FFFFFFFFFF00000FFFFFFFFFFF88888FFFFFF}
        NumGlyphs = 2
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 566
    Height = 34
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 1
    object SaveBut: TSpeedButton
      Left = 9
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Save & Exit'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333000000000000033333337777777777
        777333333307888888888803333333778888888888733333330F777777777803
        33333378FFFFFFFFF8733333330F9977777778033333337899FFFFFFF8733333
        330FFFFFFFFFF703333333788888888887733333330000000000000333333377
        7777777777733333333333333333333333333333333333333333333333333333
        3300333333333333333333773333333333333333300003333333333333333777
        7333300000000333000000333777777773337777773330FFFFFF033333003333
        3788888873333377333330F4444F033333003333378FFFF873333377333330FF
        FFFF0333380033333788888873333877333330F4444F030000083333378FFFF8
        73777778333330FFFFFF0300008333333788888873777783333330F44F000333
        33333333378FF87773333333333330FFFF003333333333333788887733333333
        3333300000033333333333333777777333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      OnClick = SaveButClick
    end
    object DeleteBut: TSpeedButton
      Left = 61
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Delete'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000
        FFFFFFF8888888887FFFFFF0F8888880FFFFFFF8F7F7F7F87FFFFFF0F0707080
        FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
        FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
        FFFFFF78F8F8F8F87F7FF0F0F0708080F0FFF878F8F8F8F878FFFF00F0707080
        0FFFFF88F8F8F8F88FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF080808080
        FFFFFFF8F8F8F8F877FFFF00000000000FFFFF888888888887FFFF0F77788888
        0FFFFF8FFFFFFFFF87FFFF00000000000FFFFF88888888888FFFFFFFF08880FF
        FFFFFFFFF8FFF87FFFFFFFFFF00000FFFFFFFFFFF88888FFFFFF}
      NumGlyphs = 2
      OnClick = DeleteButClick
    end
    object MesgBut: TSpeedButton
      Left = 133
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Send Message'
      Glyph.Data = {
        4E010000424D4E01000000000000760000002800000012000000120000000100
        040000000000D800000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDD
        DDDDDDD0DDDDDD000000DDDDDDDDDD0F0DDDDD000000DDDDDDDDD0FFF0DDDD00
        0000DDDDDDDD0FFFFF0DDD000000DDDDDDD0F4FFF1F0DD000000DDDDDD0F4F4F
        111F0D000000DDDDD0F4F4FFF1F0DD000000D0000FFF4FFFFF000D000000D030
        FFFFFFFFF0030D000000D0730000000000330D000000D0707777777777030D00
        0000D0077777777777700D000000D0000000000000000D000000DDDDDDDDDDDD
        DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
      OnClick = MesgButClick
    end
    object DialBut: TSpeedButton
      Left = 159
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Dial Number'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000
        00FFFFF88888888888FFFFF09111111110FFFFF8F7F7F7F7F8FFF11097070707
        10FFF888F878787878FF1FF09999999910FF8F787F7F7F7F78FF1FFF09707079
        0FFF8FFF8F8787878FFF1000109999901000888888FFFFF88888801110000000
        1110F8F778888888F778F099901111109990F87F787777787778FF0999999999
        990FFF87FFFFFFFFFF8FFFF10000000001FFFFF88888888888FFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
      NumGlyphs = 2
      OnClick = DialButClick
    end
    object WebBut: TSpeedButton
      Left = 185
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Go To Web Site'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555FFFFF555555555544C4C5555555555F777775FF5555554C444C444
        5555555775FF55775F55554C4334444445555575577F55557FF554C4C334C4C4
        335557F5577FF55577F554CCC3334444335557555777F555775FCCCCC333CCC4
        C4457F55F777F555557F4CC33333CCC444C57F577777F5F5557FC4333333C3C4
        CCC57F777777F7FF557F4CC33333333C4C457F577777777F557FCCC33CC4333C
        C4C575F7755F777FF5755CCCCC3333334C5557F5FF777777F7F554C333333333
        CC55575777777777F755553333CC3C33C555557777557577755555533CC4C4CC
        5555555775FFFF77555555555C4CCC55555555555777775555550000}
      NumGlyphs = 2
      OnClick = WebButClick
    end
    object NewBut: TSpeedButton
      Left = 35
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Save & New'
      Glyph.Data = {
        30050000424D300500000000000036040000280000000E0000000E0000000100
        080000000000E000000000000000000000000000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0CA
        A600000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
        0303030303030303000003030000000000000000000303030000030300FFFFFF
        FFFFFFFF000303030000030300FF0404040404FF000303030000030300FFFFFF
        FFFFFFFF000303030000030300FF0404040404FF000303030000030300FFFFFF
        FFFFFFFF000303030000030300FF040404FFFFFF000303030000030300FFFFFF
        FFFF0000000303030000030300FF0404FFFF00FF000303030000030300FFFFFF
        FFFF000003030303000003030000000000000003030303030000030303030303
        0303030303030303000003030303030303030303030303030000000000000000
        0000000000000000000000000000000000000000}
      OnClick = NewButClick
    end
    object PrintBut: TSpeedButton
      Left = 87
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Print'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF77333333333000000333333333377777733333330000}
      NumGlyphs = 2
      OnClick = PrintButClick
    end
    object ExitBut: TSpeedButton
      Left = 535
      Top = 4
      Width = 25
      Height = 25
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F33330000000000033333777777777773330000}
      NumGlyphs = 2
      OnClick = ExitButClick
    end
    object SpeedButton1: TSpeedButton
      Left = 507
      Top = 4
      Width = 25
      Height = 25
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33
        33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888
        8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF
        F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF
        F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF
        0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000
        B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF
        B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3
        333333333777733333333333FBFBFB33333333333333333333330000}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 295
    Top = 2
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object SendMessage1: TMenuItem
        Caption = 'Send &Message'
        ShortCut = 0
      end
      object Call1: TMenuItem
        Caption = '&Call'
        ShortCut = 0
      end
      object WebSite1: TMenuItem
        Caption = '&Web Site'
        ShortCut = 0
        OnClick = WebButClick
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object New1: TMenuItem
        Caption = '&New'
        ShortCut = 0
      end
      object Save1: TMenuItem
        Caption = '&Save'
        ShortCut = 0
        OnClick = SaveButClick
      end
      object SaveAs1: TMenuItem
        Caption = '&Save As...'
        ShortCut = 0
      end
      object Delete1: TMenuItem
        Caption = '&Delete'
        ShortCut = 0
        OnClick = DeleteButClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Import1: TMenuItem
        Caption = '&Import'
        ShortCut = 0
        object VCard1: TMenuItem
          Caption = '&V-Card'
          ShortCut = 0
          OnClick = VCard1Click
        end
      end
      object Export1: TMenuItem
        Caption = '&Export'
        ShortCut = 0
        object VCard2: TMenuItem
          Caption = '&V-Card'
          ShortCut = 0
          OnClick = VCard2Click
        end
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = ExitButClick
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Contents1: TMenuItem
        Caption = '&Contents'
        ShortCut = 0
      end
    end
  end
  object PGPInterface1: PGPInterface
    Pseckeyring = 'secring.pgp'
    Ppubkeyring = 'pubring.pgp'
    PPrintableAscii = True
    PWipeout = True
    Action = encryptPlaintext
    PNotBin = False
    PScreenonly = False
    PRecoverPlainTextFilename = False
    TEXTMODE = True
    ARMOR = True
    ARMORLINES = 0
    KEEPBINARY = False
    COMPRESS = True
    COMPLETES_NEEDED = 1
    MARGINALS_NEEDED = 2
    CERT_DEPTH = 4
    SHOWPASS = False
    TZFIX = 0
    CLEARSIG = True
    VERBOSE = Quiet
    INTERACTIVE = False
    Left = 325
    Top = 1
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'vcf'
    FileEditStyle = fsEdit
    Filter = 'V-Card Files|*.vcf|All Files|*.*'
    Options = [ofHideReadOnly, ofFileMustExist]
    Title = 'Import V-Card'
    Left = 362
    Top = 1
  end
  object OpenDialog2: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 
      'All Supported Images|*.gif;*.jpg;*.bmp|GIF|*.gif|JPG|*.jpg|BMP|*' +
      '.bmp|WMF|*.wmf|SIF|*.sif|All Files|*.*'
    Options = [ofHideReadOnly, ofFileMustExist]
    Left = 389
    Top = 1
  end
  object ZipMaster1: TZipMaster
    Verbose = False
    Trace = False
    AddCompLevel = 9
    AddOptions = []
    ExtrOptions = []
    Left = 419
    Top = 1
  end
  object PrintDialog1: TPrintDialog
    Left = 451
    Top = 1
  end
  object SaveDialog: TSaveDialog
    FileEditStyle = fsEdit
    Filter = 
      'All Supported Files|*.gif;*.bmp|BMP Files|*.gif|BMP Files|*.bmp|' +
      'All Files|*.*'
    Options = [ofOverwritePrompt]
    Title = 'Save Image File'
    Left = 264
    Top = 2
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'vcf'
    FileEditStyle = fsEdit
    FileName = 'vCard'
    Filter = 'All V-Card Files|*.vcf|All Files|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Title = 'Export V-Card'
    Left = 234
    Top = 2
  end
end